5' *** OISAC 2 *** MEMO ***
10 CLS:RESTORE#:INPUT"Recherche : ",A$
20 RESTORE# A$,0,50
30 PRINTA$" est dans le MEMO"
40 INPUT"Remplace O/N ";R$:IFR$="O"THENINPUT"Par : ",B$:WRITE#B$
45 GOTO10
50 PRINTA$" n'est pas dans le MEMO":GOTO10